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SEQ 0003 

72 

73 3. PROGRAM ABSTRACT 

74 

75 

76 The KDJ11-B is a PDP-11 CPU that incorporates the J1ll chip set as the 
77 heart of the processor. It is a quad height Q22 bus module. The 

78 KDJ11-B hes two on-board ROM’s. One of them, the 16-bit addressable 
79 ROM, conteins the self-test and the boot codes. The other ROM, the 
80 8-bit eddressable one, contains the base area with hardware selection 
81 peremeters, optional bootstraps, optional UFD (User Friendly 

4 Diagnostic) system desctiption erea, and optional foreign language 

text. 

84 

85 On units to be shipped to non-English speaking countries, a dummy or 
86 "null" language is loaded into the EEPROM. The purpose of this is to 
87 disable English language error messages when the system is first 

88 installed. If and when the system passes its internal self tests, 
89 the user will be instructed to run a UFD (User Friendly Diagnostics) 
90 package which will be part of a "country kit” for each seperate 

91 language. The UFD package will use the local language for the 

92 perticuler country and, in addition, will load diagnostic and error 
93 messages in the locel language into the EEPROM, so each subsequent 
94 power-up or reboot will have diagnostic and error messages in the 
user's own language. 

97 The purpose of this program is to load the local language into the 
98 EEPROM. If it detects an error, the program will attempt to restore 
99 the “old” —. if any end will print a message informing the 
100 user of that fact. 

101 

102 2. SYSTEM REQUIREMENTS 

103 

104 Hardware Requirements 

105 

106 To run successfully this utility needs: 
107 

108 1. KDJ11-B CPU module 

109 2. console terminal 
110 3. at least 28K of memory 
111 

112 
113 3. LOADING AND STARTING PROCEDURES 
114 
115 To start-up this program: 
116 

117 1. Boot XXDP-+ 
118 

119 2. Type “R NAME”, where NAME is the name of the BIN or BIC 
120 file for this program. 
121 

122 The starting eddress of the program is 1000. 

123 Note: if trying to restert the program in an arbitrary place after 
124 HALT on Break the following registers should be set up: 

125 17777572=0 to disable memmory management 

126 17777520=1000 to clear diagnostic mode (bit 8), but still save 

127 HALT on Break 

128 17777746=400 to flush the cache 

! 
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4. SPECIAL ENVIRONMENTS 

The program is not APT compatible. 

S. PROGRAM OPTIONS 

None. 

6. EXECUTION TIMES 

The program runs in under 20 seconds. 

7. ERROR INFORMATION 

7.1 DEFECTIVE BYTE IN EEPROM 

After each write, the Byte which should have been written is 
Rhlimgwermms ssa UCU 


EEPROM write error, PCR page n, address mmmmmm. 
Date written qqq, date read rrr. 


where nm is the EEPROM page selected by the Page Control Register (PCR), 
mammmm is the physical address of the bad byte in question, qaq is the 
byte value thet was written out to the address and rrr what was read 
back in efter the write. (should be identical to qaqq) 


7.2 PROCESSOR NOT KDJ11-B8 


The program checks the type of CPU it is running on, which must be a 
KDJ11-B processor (MFPT returns 5 in r0). If not, the following message 
is printed: 


Language eree not supported by this processor. 
7.3 “OLD” BOOT ROM CODE, LANGUAGE AREA NOT SUPPORTED 
The program checks to see if the ROM code version is 7.0 or later. 
Eerlier versions do not support the language area in the EEPROM 
and would print gerbage if one was loaded. The program prints the 
following message in that case: 

Current Boot ROM version does not support language area. 


In addition, the language bit in the setup area of the EEPROM is 
cleared, to prevent “gerbage” from being printed. 


7.4 CHECKSUM ERROR IN SETUP AREA 


The checksum in the setup area is checked to see if it contains a valid 
checksum. Also, bytes 6 and 103 (addresses 17765022 and 17765314, 
respectively) are checked to see if they contain 0 and 252 octal, 
respectively. If any of these conditions is not met, the following 
message is printed: 


EEPROM checksum error in setup area. 





SEQ 0004 
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SEQ 0005 

187 

ase No attempt is made to correct a checksum error. 

ay 7.5 DIFFERENCES BETWEEN UFD “QUIET” MODE AND “STANDALONE” MODE 

192 When this progrem is run in UFD "Quiet" mode (which will usually be 
193 the case) none of the error messages will appear. If no error is 

194 detected, no messages whatsoever ere printed. If any error is 

195 detected, the program will attempt to restore the UFD and 1 

196 ereas to the state they were in when the program was started. I 

197 the restoration was successful, the following message is printed in 
i. the user's language: 
ioe Unable to load <language> 
202 where <language> is the name of the langu . If the restoration 
203 was not successful, or there was no local language, the following 
4 message is printed. 
+4 Unable to load <language> - reverting to U.S. English 
208 where a is as above. The program then clears the bit 

209 in the EEPROM setup erea selecting a local language which means 
aT that the ROM English will be used from now on. 
4 8. EXAMPLES 
214 After booting XXDP+ and running the program, no message should 
44 appear, just the XXDP dot prompt ( . ) 

16 
= If ea problem cccurred, one of the messages in section 7 should appear. 
219 9. PROGRAM DESCRIPTION 
220 
221 The program consists of a body of code which loads the language into 
222 the local language area of the EEPROM. The routine that performs the 
223 write first checks the current value of the byte to be written and if 
224 it is the same, no write is performed. This is done to extend the 
225 life of the EEPROM. The write routine also checks the value in the 
226 EEPROM efter the write to insure it was written correctly. After a 
227 succesful run, no mess eppears, after an unsuccessful attempt to 
228 write any of the bytes in the EEPROM, one of the message in section 7 
229 appears. If run under UFD "Quiet" mode, no message is printed if the 
230 program wes successful, otherwise one of the messages in 7.5 appeer. 
444 In both cases, the XXDP prompt appears. 
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PROGRAM CONSTANTS 


234 

235 000000 

236 

237 

238 

239 177520 
240 177522 
241 177522 
242 165000 
243 165316 
e244 165006 
245 166000 
246 173002 
247 025370 
248 000140 
249 000040 
250 000002 
251 

252 000004 
253 

254 177524 
255 000015 
256 000012 
257 000200 
258 000100 
259 000011 
260 000010 
261 000040 
262 000033 
263 

264 001550 
265 

266 

277 
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. ENABL 
-NLIST 
-LIST 


BCSR 
PCR 
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PROGRAM CONSTANTS 
ABS 


MD, CND 
ME 


177520 
177522 
177522 
165000 
E2PROM+316 
E2PROM+6 
E2PROM+ 1000 


FLEND-TEXT 


;E2PROM PARITY BYTE 

sLOCAL LANGUAGE BIT IN E2PROM 
sLAST ADDRESS OF E2PROM+-2 

sWORD TO TEST ROM VERSION NUMBER 


31.0. OF A LANGUAGE AREA 

31.0. OF A UFO BLOCK 

sNUMBER OF ATTEMPTS TO WRITE A 
sBYTE IN E2PROM BEFORE GIVING UP 
NO. OF ERRORS ALLOWED IN LOCAL 
sLANGUAGE TEXT BEFORE QUITTING 


sSIZE IN BYTES OF TEXT TO BE 
sLOADED INTO EEPROM 


SEQ 0006 
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SEQ 0007_—s! 
CHECK FOR CERTAIN EXCEPTIONS FIRST 
310 .SBTTL CHECK FOR CERTAIN EXCEPTIONS FIRST 
312 001000 .=1000 
314 001000 005037 177522 START: CLR aePcR ;SELECT PAGE 0 OF EEPROM 
315 001004 013746 177520 MOV @OBCSR, -( SP) ;SAVE OLD BCSR VALUE 
316 001010 112737 000067 177520 MOVB 67, 90BCSR ;WRITE ENABLE THE E2PROM & ENABLE ROM 
318 001016 000007 MFPT :GET PROCESSOR TYPE 
319 001020 020027 000005 CMP RO, #5 ;CHECK TO SEE IF ORION 
320 001024 001404 BEQ 1$ sYES - CONTINUE 
321 001026 .TYPMSG #FMSG2 ;FIELD-SERVICE MESSAGE 
000001 “NARG  NARGS 
000027 .NTYPE NTYPE, #FMSG2 
001026 012700 002563 MOV #FMSG2,RO 
001032 104003 EMT 3 
322 001034 000443 BR 99$ 
324 001036 012700 165000 1$: MOV #E2PROM,RO ;STARTING ADDRESS TO CHECKSUM 
325 001042 005001 CLR R1 ;INITIALIZE CHECKSUM 
326 001044 012703 000151 MOV #105. ,R3 ;NO. OF BYTES TO CKSUM 
327 001050 012005 201$: MOV (RO)+,R5 ;GET A BYTE 
328 001052 042705 177400 BIC #177400,R5 ;NO BUS NOISE, THANK YOU. 
329 001056 060501 ADD RS,R1 ;ACCUMULATE CHECKSUM 
330 001060 077305 SOB R3,201$ ;CONTINUE TILL DONE 
331 001062 105701 TSTB sR ;I1S CKSUM 0? 
332 001064 001007 BNE 202$ :NO, ERROR 
333 001066 105737 165022 TSTB  a@#E2PROM+22 ;BYTE TO TEST FOR VALID ROM, SHOULD BE 0 
334 001072 001004 BNE 202$ ;NO, ERROR 
335 001074 123727 165314 000252 CMPB av€2PROM+314, #252 ;BYTE TO TEST FOR VALID ROM 
336 001102 001404 BEQ 300$ ;GO TO NEXT CHECK IF OK 
337 001104 202%:  .TYPMSG #FMSG4 ;FIELD SERVICE MESSAGE 
000001 .NARG  NARGS 
000027 “NTYPE NTYPE, #FMSG4 
001104 012700 002737 MOV #FMSG4,RO 
001110 104003 EMT 3 
338 001112 000414 BR 99$ ;QUIT 
339 001114 005067 001304 300$: CLR OLDSIZ ;SET FLAG THAT ROM EXISTS, CURRENTLY NO LANGUAGE 
340 001120 012737 000016 177522 MOV #7%2, 00PCR ;SEL. LAST PAGE OF 2K E2PROM, PGO OF ROM 
341 001126 023727 173002 CMP QORMVTST,(PC)+ ;SEE IF ROM VER. 7 OR LATER (CAN SUPPORT LANGUAGE AREA) 
342 001132 000250 CLN 
343 001134 001405 BEQ 2$ :YES - CONTINUE 
344 001136 .TYPMSG #FMSG3 
000001 “NARG NARGS 
000027 -NTYPE NTYPE, #FMSG3 
001136 012700 002644 MOV #FMSG3,RO 
001142 104003 EMT 3 
345 001144 000167 000636 99$: JMP QUIT1 
34? .SBTTL SAVE OLD LANGUAGE/UFD AREA IN CASE IT MUST BE RESTORED 
349 001150 012700 165776 2$: MOV #ENDE2R-2,RO ;LAST ADDRESS (CKSUM) OF E2PROM 
350 001154 012701 000005 MOV #5,R1 ;NO. OF BYTES IN HEADER TO CHECKSUM 
351 001160 010005 MOV RO,RS ;SAVE ADDRESS 
352 001162 005003 CLR R3 : 
353 001164 111004 4$: MOVB (RO),R4 ;GET A BYTE 


| 354 001166 060403 ADD R4,R3 sACCUMULATE CHECKSUM 
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SAVE OLD LANGUAGE/UFD AREA IN CASE IT MUST BE RESTORED 


355 001170 
356 001172 


-_--- 


005740 


010167 
010167 
000500 


120427 
001075 
010167 
062701 
004767 
005003 
004767 
004767 
004767 
010546 
004767 
110566 
004767 
116600 
012601 
105703 
001025 


042700 
120027 
001020 


042701 
062701 
010104 
010167 
066701 
012702 
004767 
001404 


000001 
177437 


177437 
000040 


160000 
000005 


001024 
001016 
004654 
000516 








LANG: CMPB 


;WE HAVE BOTH A 


BIC 
ADD 
MOV 
MOV 
ADD 
MOV 
CALL 
BEQ 


Ti 
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-(RO) 
R1,4$ 
R3 
WRLANG 


-C(R5),R4 
-C(RS),-CSP) 
R4,1(SP) 
#177437 ,R4 


R1,OLOSIZ 
R1,UFOSIZ 
WRLANG 


R4, #LNGHOR 


1(SP),RO 
(SP)+,R1 
R3 
i$ 


#177437 ,RO 
+ aiaieataa 


Page 6-1 
SEQ 0008 


;CORRECT ADDRESS 

;LOOP FOR S BYTES 

;IF NOT ZERO, NO LANGUAGE LOADED 
sNON-EXISTANT OR CORRUPTED LANGUAGE - SKIP 


sHIGH BYTE OF BYTE COUNT 

;LOW BYTE OF BYTE COUNT 

;SET UPPER BYTES OF SIZE 

sEXTRACT ID CODE 

;GET SIZE BACK 

sR1 NOW CONTAINS SIZE OF BLOCK IN BYTES 

;ADD BYTE COUNT FOR HEADER BLOCK 

;SEE IF IT IS A UFD BLOCK 

s3NO, CHECK FOR A LANGUAGE 

sSAVE SIZE 

sADDRESS OF SAVE BUFFER 

sMOVE UFD AREA TO MEMORY 

sBAD CKSUM, QUIT 

sNOTE - R3 CONTAINS CHECKSUM OF BLOCK AND HEADER 
sHOWEVER THE CHECKSUM OF HEADER IS ALREADY KNOWN 
;T0 BE O SO R3 IS A VALID CHECK OF UFD BLOCK 
sSAVE TOTAL SIZE 

sSAVE SIZE OF UFD AREA 


;IS THIS A LANGUAGE HEADER? 

sNO - QUIT 

sSAVE SIZE FOR NOW 

sADD SIZE OF (POSSIBLE) UFD HEADER 
;SET UP PCR AND RO 

sINITIALIZE CKSUM 

;GET A BYTE 

;GET A BYTE 

;GET A BYTE 

sSAVE LOW BYTE OF SIZE FOR LATER 
sGET A BYTE 

;SAVE HIGH BYTE OF SIZE AND ID 
;GET A BYTE 

sGET I.D. 

sGET SIZE 

;SEE IF VALID CKSUM 

sNO - WE HAVE LANGUAGE ONLY. 


;GET ID ONLY 
;IS THIS A UFD BLOCK? 
sNO, IGNORE IT. 


LANGUAGE AREA AND A UFD BLOCK. SAVE THE UFD BLOCK. 


#160000 ,R1 
#5,R1 
R1,R4 
R1,UFDSIZ 
OLOSIZ,R1 
@BUFF ,R2 
MOVROM 

2s 


;GET RIO OF ID 

;SIZE OF HEADER 

sBYTE COUNT TO MOVE 

sSAVE UFD SIZE 

sADD SIZE OF LANGUAGE AREA 
sMEMORY ADDRESS TO SAVE TO 
sSAVE UFD AREA 

sYES, IT IS VALID, CONTINUE 


—— 





r 
| 


ee 
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001420 


005067 
012702 
016701 
010104 
066767 
004767 
001404 
005067 
005067 


012700 
005001 
112002 
160201 
020027 
001373 
110110 


016701 
062701 
004767 
016701 
001406 
012702 
112205 
004767 
077104 


012702 
012701 
112205 
004767 
077104 


112705 


105037 
012700 
111001 
142701 


111005 
074105 


000716 
001550 
000622 
000702 
004654 
000126 
003104 
001550 


000106 
000200 
177522 
165006 
177577 


000200 


000336 
165316 
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SAVE OLD LANGUAGE/UFD AREA IN CASE IT MUST BE RESTORED 


000760 


1$: 
2$: 








MO 

WRL ANG 
OLDSIZ 
UFDSIZ 


UFOSIZ,OLDSIZ 
VROM 


sNO UFD AREA 

sRESET R2 

sSIZE OF LANGUAGE AREA 
s;BYTES TO MOVE 

sOLDSIZ IS THE TOTAL SIZE 
sSAVE LANGUAGE AREA 
sLANGUAGE IS GOOD 

sNO LANGUAGE 

sNO UFD AREA 


sGENERATE CHECKSUM FOR FOREIGN LANGUAGE TEST FILE & WRITE TO THE MEMORY IMAGE 


35$: 


40$: 
50$: 


EXIT: 


#TEXT,RO 


P°] 
rerg 


sADDRESS OF BEGINNING OF TEXT 
sINIT CHECKSUM 

sREAD A BYTE 

sACCUMULATE CHECKSUM 
sFINISHED ALL TEXT ? 
sNO-CONTINUE 

s;WRITE THE CHECKSUM 


-SBTTL LOAD LOCAL LANGUAGE INTO E2PROM 
s;WRITE UFD & LOCAL LANGUAGE BLOCKS 


UFDSIZ,R1 


R1,35$ 


#TEXT,R2 
#ROMSZ,R1 
CR2)+,R5 
EQWRIT 
R1,50$ 


#BIT7,RS 


a@ePCRLB 


#tCBIT7,R1 
RS,R1 
EXIT1 
#BIT7,R1 
CRO),RS 
R1,RS 
WRBYTE 
EXIT1 
#E2PAR ,RO 
CRO),RS 
R1i,RS 





sGET THE LENGTH OF THE UFD 

3... & THE TEXT AREA 

sCOMPUTE E2PROM PAGE AND ADDR 
s;SIZE OF UFD AREA TO SAVE 

sNO UFD AREA - SKIP 

sADDRESS OF BEGINNING OF UFD AREA 
sGET SOME DATA 

;GO WRITE IT 

sFINISHED UFD? 

sYES-DO LANGUAGE 

sADDRESS OF EEPROM LANGUAGE TEXT 
sBYTES TO MOVE 

sGET SOME DATA 

sWRITE A BYTE 

sARE WE DONE? 

sYES - EXIT 

s TURN ON LOCAL LANGUAGE BIT IN 
sSETUP AREA, THEN EXIT 


sSELECT PAGE 0 
sE2PROM WORD CONTAINING LOCAL LANG. BIT 


sGET CURRENT LOCAL LANGUAGE BIT 
sSEE IF BIT ALREADY CORRECT 
sYES, JUST RETURN 

sLOCAL LANGUAGE BIT 

sGET OLD WORD AGAIN 

sFLIP THE BIT 

sCHANGE LOCAL LANGUAGE BIT IN E2PROM 
sWOULD NOT WRITE, JUST GIVE UP 
sADDRESS OF CKSUM BYTE 

sGET OLD CKSUM BYTE 

sCORRECT THE CKSUM 





| 
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LOAD LOCAL LANGUAGE INTO E2PROM 


469 
470 
471 


001636 
001642 


001642 
001646 
001650 
001654 
001660 
001664 


001666 
001672 


) 001674 


001700 
001706 


001710 
001714 


001716 
001722 


001724 
001730 


004767 


026727 
003036 


020227 
101433 


020227 
101030 


132705 
001425 


132710 
001422 


111004 
116703 
060503 
160403 
110367 


000320 


002560 


000060 
177520 
177522 


000270 
000522 
000516 


003201 
004645 
000140 


000140 


002700 


002670 


000002 
166000 


165000 
000002 


000100 


003006 
000374 


000302 





000004 


177522 


000052 


EXIT1: 


EQwRIT: 


3$: 


10$: 


QUIT: 
QUIT1: 


S$: 





CALL 
-FRCTYP 





K1 
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WRBYTE 


@CRLF 

NARGS 
NTYPE , @CRLF 
@CRLF ,RO 

4a 

#60, (SP) 

(SP )+,@BCSR 
aePCR 


PC 


WRBYTE 
3$ 
WERR 


WERR , @MAXERR 
QUIT 


R2, M001 
QUIT 


R2, #MEND1 
QUIT 


#140,R5 
QUIT 


#140,(RO) 
QUIT 


CRO) ,R4 
CKSUM,R3 
RS,R3 
R4,R3 
R3,CKSUM 


#2,RO 

RO, #ENDE2R 
10$ 
#E2PROM,RO 
#2, 80PCR 


(SP )+ 
#BIT6,a#S2 
S$ 


#MSGO00 
NARGS 


NTYPE , #MSGOO0O 


#MSGO0O0 , RO 


44 
OLOSIZ,R1 
EXxIT1 


40$ 
PC ,ROMADR 
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;UPDATE E2ROM 
sCOMPLETE LINE 


;BE SURE ROM IS DISABLED 
sRESTORE BCSR 
; 


;WRITE THE BYTE TO E2PROM 
;OK THIS TIME 
sFLAG BAD BYTE 


;CHECK TO SEE IF PAST THE MAXIMUM ERROR 
sLIMIT OF BAD BYTES ALLOWED 


;CHECK TO SEE IF ERROR IS IN MESSAGE 
sBYTE COUNT (MUST BE CORRECT) 


s;CHECK TO BE SURE DICTIONARY AND UFD 
s;BLOCKS ARE NOT CORRUPTED 


s;CHECK TO SEE IF IT SHOULD BE A CONTROL 
s;CODE (POSSIBLY DICTIONARY ENTRY) 


sIF CONTROL CODE (DICTIONARY REFERENCE 
sPERHAPS) CALL IT QUITS 


sWE WILL LIVE WITH THIS ERROR, CORRECT 
s; THE CHECKSUM TO ACCOUNT FOR NEW VALUE 
sCANCEL OUT WHAT WAS SUPPOSED TO BE 
sCORRECT FOR ERRONEOUS VALUE 

sPUT BACK CORRECTED VALUE 


s INCREMENT LOCATION 
sFINISHED THIS PAGE ? 
sNO-RETURN 

;YES-RESET ADDRESS 

s INCREMENT PCR TO NEXT PAGE 


sCORRECT STACK 
;SEE IF UFD QUIET 


NO 
sMESSAGE FOR USER IN HIS OWN LANGUAGE 


sERROR WAS NOT ORION OR CKSUM ERROR, DO NOT 
sTRY TO CLEAR LANGUAGE BIT 

;IF NO OLD LANGUAGE TO RESTORE 

sCOMPUTE STARTING ADDRESS OF OLD LANG IN E2PROM 








Seon: | 


SEQ 0010 


ee 
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LOAD LOCAL LANGUAGE INTO E2PROM 


3516 002040 012702 004654 MOV @BUFF ,R2 sSTARTING ADDRESS OF OLD LANGUAGE TEXT 
519 002044 112205 10$: MOVB CR2)+,RS ;GET A BYTE 
520 002046 004767 000110 CALL WRBYTE sWRITE IT OUT 
521 002052 001017 BNE 40$ sIF ERROR, GIVE UP 
S22 002054 062700 000002 ADD #2,RO s INCREMENT LOCATION 
523 002060 020027 166000 CMP RO, El... t sFINISHED THIS PAGE ? 
524 002064 001005 BNE 20$ sNO-CONTINUE 
S25 002066 012700 165000 MOV #E2PROM,RO sYES-RESET ADDRESS 
526 002072 062737 000002 177522 ADD #2, 80PCR s INCREMENT PCR TO NEXT PAGE 
527 002100 077117 20$: SoB R1,10$ sLOOP UNTIL DONE 
528 002102 026767 000320 000314 CMP UFDSIZ,OLDSIZ ;IF THE SAME THEN NO LANGUAGE 
S29 002110 001254 BNE EXIT1i ;IF LANGUAGE, LEAVE E2PROM LANG. BIT AS IT WAS 
530 002112 005005 40$: CLR RS ; TURN OFF LOCAL LANGUAGE BIT IN E2PROM 
531 002114 036727 175760 000052 BIT BIT6,a#S2 sSEE IF UFD QUIET 
S32 002122 001621 BEQ EXIT sNO 
533 002124 -FRCTYP #MSGOO1 
000001 NARG NARGS 
000027 NTYPE NTYPE,#MSGOO1 
002124 012700 003045 MOV #MSGO01,RO 
002130 104044 EMT 44 
to 002132 000615 BR EXIT sAND CALL IT A DAY 
a -SBTTL PROGRAM SUBROUTINES 
538 sMOVROM - MOVE BYTES FROM EEPROM TO MEMORY 
539 sENTRY- R1 = STARTING ADDRESS IN EEPROM (@ OF BYTES FROM END) 
540 ; R2 = ADDRESS OF MEMORY BUFFER 
$41 ; R4 = #@ OF BYTES TO MOVE 
542 sEXIT R1 - UNCHANGED 
543 ; R2 - UPDATED MEMORY ADDRESS 
544 ; R3 = (BYTE) O IF VALID CKSUM 
os ; "Z" FLAG SET IF CKSUM VALID 
6 
547 002134 010403 MOVROM: MOV R4,R3 sSAVE R4 
548 002136 004767 000200 CALL ROMADR sLOAD PCR AND RO WITH LANGUAGE START AREA 
549 002142 010304 MOV R3,R4 sRESTORE BYTE COUNT 
550 002144 005003 CLR R3 sINIT CHECKSUM 
551 002146 004767 000142 S$: CALL REAROM ;GET A BYTE 
552 002152 110522 MOVB RS,CR2)+ s;SAVE IT 
553 002154 077404 SoB R4,5$ sLOOP TILL DONE 
554 002156 105703 TSTB R3 IS CHECKSUM GOOD? 
_ 002160 000207 RETURN 
557 002162 120510 WRBYTE: CMPB RS, CRO) sIS THE NEW DATA DIFFERENT ? 
a4 002164 001452 BEQ 10$ sNO-DO NOT WRITE OVER 
560 002166 012703 000002 MOV @RETRY ,R3 
561 002172 010510 1$: MOV RS, CRO) sWRITE A LOCATION 
S62 002174 012704 025370 MOV #DELAY ,R4 311 MS WAIT 
563 002200 077401 SOB es sWASTE TIME 
564 002202 120510 CMPB RS, CRO) sSEE IF IT TOOK 
S65 002204 001442 BEQ 10$ sYES, ALL OKAY 
566 002206 077307 SOB R3,1$ sIF AT FIRST YOU DON'T SUCCEED... 
567 002210 113704 177522 MOVB @ePCRLB ,R4 ;PCR PAGE OF BAD BYTE 
568 002214 106204 ASRB R4 sCONVERT TO PAGE @ 
569 002216 062704 000060 ADD #'O,R4 sCONVERT TO OCTAL 
| 570 002222 110467 000237 MOVB R4,FMSG1A sSTORE IT FOR PRINTING 

















= 
' 


M1 
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SEQ 0012 
PROGRAM SUBROUTINES 
571 002226 010046 MOV RO, -(SP) sSAVE ROM ADDRESS 
S72 002230 -ITOA ,@FMSG1B sCONVERT ROM ADDRESS TO OCTAL 
000002 -NARG NARGS 
000027 -NTYPE NTYPE , @FMSG1B 
002230 012701 002500 MOV #FMSG1B,R1 
002234 104030 EMT 30 
573 002236 -TYPMSG @#FMSG1 sPRINT OUT FIRST PART OF MESSAGE 
000001 -NARG NARGS 
000027 -NTYPE NTYPE,@FMSG1 
002236 012700 002430 MOV #FMSG1,RO 
002242 104003 EMT 3 
574 002244 042705 177400 BIC #177400,R5 sMAKE SURE RS IS POSITIVE AND A BYTE 
575 002250 -ITOA RS, @DUMMY1 sCONVERT TO OCTAL 
000002 -NARG _NARGS 
000005 -NTYPE NTYPE ,RS 
002250 010500 MOV RS,RO 
000027 -NTYPE NTYPE , @DUMMY1 
002252 012701 002526 MOV @DUMMY1,R1 
002256 104030 EMT 30 
576 002260 -TYPMSG #FMSG1C sPRINT OUT LAST 3 DIGITS OF NUMBER & MESSAGE 
000001 -NARG  NARGS 
000027 -NTYPE NTYPE,@FMSG1C 
002260 012700 002531 MOV #FMSG1C,RO 
002264 104003 EMT 3 ; 
S77 002266 013600 MOV aCSP)+,RO sGET BYTE AT ROM ADDRESS 
578 002270 042700 177400 BIC #177400 ,RO sGET RID OF BUS NOISE 
579 002274 -ITOA 8 ,@DUMMY2 sCONVERT TO OCTAL 
000002 -NARG _NARGS 
000027 -NTYPE NTYPE , @DUMMY2 
002274 012701 002551 MOV #DUMMY2,R1 
002300 104030 EMT 30 
580 002302 -TYPMSG #FMSG1D sPRINT LOWER 3 BYTES & REST OF MESSAGE 
000001 -NARG NARGS 
000027 -NTYPE NTYPE,@FMSG1D 
0V2302 012700 002554 MOV #FMSG1D,RO 
002306 104003 ent 863 
581 002310 000244 CLZ sCOULDN'T DO IT, SET ERROR FLAG 
oe 002312 000207 10$: RETURN 
8 
584 sREAROM - READS A BYTE FROM E2PROM ADDRESS (RO)+ INTO RS. AUTOMATICLY ADJUSTS 
585 s;PCRLB. UPDATES CKSUM IN R3 
586 ; ENTRY - RO ADDRESS IN ROM TO READ FROM 
587 ; R3 PARTIAL CKSUM 
588 ; PCRLB CORRECT VALUE FOR BYTE TO READ 
589 ; EYIT RO ADDRESS OF NEXT BYTE 
590 ; R3 UPDATED CKSUM 
591 ; RS BYTE READ 
eee ; PCRLB CORRECT VALUE FOR NEXT BYTE 
594 002314 012005 REAROM: MOV CRO)+,RS sGET A BYTE & UPDATE ADDR. BY 2 
595 002316 060503 ADD RS,R3 sUPDATE CKSUM 
596 002320 020027 166000 CMP RO, #@ENDE2R sSEE IF WE SHOULD SWITCH PAGES 
597 002324 001005 BNE 10$ 3NO 
598 002326 012700 165000 MOV #E2PROM,RO sYES - GO TO START OF PAGE 
599 002332 062737 000002 177522 ADD #2, 90PCR sADVANCE A PAGE 
600 002340 000207 10$: RETURN 
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PROGRAM SUBROUTINES 


000000 
631 002424 177777 
633 002426 000000 


639 002465 130 


——— | 
. 


-—- 


177770 
000010 


177400 


165000 


177000 
165000 


177522 








Ni 
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sROMADR - CALCULATE PAGE OFFSET 


i ENTRY - R1 SIZE IN 
; EXIT - RO INITIAL 
; R1 SIZE IN 
; PCRLB CORRECT 
ROMADR: MOV R1,RO 

MOV R1,R5 

ASH 6-8. RS 

MOV 07+1,R4 

SuB RS,R4 

BIC #177400,RO0 

ASL RO 

BNE 20% 

MOV @E2PROM,r0 

BR 30$ 
20%; NEG RO 

BIC #177000 ,RO 

BIS #E2PROM,RO 

DEC R4 
30$: ASL R4 

MOVB R4,@0PCRLB 

RTS PC 
WERR: 0 
OLOSIZ: -1 
UFDSIZ: 0 


Page 6-6 
SEQ 0013 


owe OF ROM GIVEN SIZE IN BYTES 
a FOR FIRST BYTE IN ROM 
VALUE FOR FIRST BYTE IN ROM 


sCOPY BYTE COUNT 

sSECOND COPY 

sDIVIDE BYTE COUNT BY 256. BYTE PAGES 
sLAST PAGE IN 2 K PART + 1 

sSTARTING PAGE NUMBER 


sLEAVE ONLY BITS 7:0 
sDOUBLE VALUE 


3 
3IF O 
sMAKE STARTING ADDRESS BITS 8:0 


; 
sMAKE A E2PROM ADDRESS 
sDECREMENT PAGE NUMBER BY 1 


sMAKE PAGE NUMBER CORRECT FOR PCR 
sCORRECT PAGE IN PCRLB 
sRETURN 


sFLAG FOR BAD BYTE 

320 - SIZE IN BYTES OF OLD LANGUAGE, O IF NO 
;LANGUAGE, -1 IF E2PROM MAY BE BAD/NONEXISTANT 
sSIZE IN BYTES OF OLD UFD AREA 


-SBTTL “FIELD SERVICE MODE” ERROR MESSAGES 


-ENABL LC 


FMSG1: .ASCII /EEPROM write error, PCR page / 


FMSGIA: .ASCII /X, address / 


FMSG1B: .BLKB 


-ASCIZ 


sFOR ADDRESS 


6 
<CR><LF>/Date written / 


COEEGA EEPROM SWED LANG LOR 
“FIELD SERVICE MODE” ERROR MESSAGES 
642 002526 


643 
644 


650 


651 
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DUMMY1: .BLKB 
FMSGIC: .BLKB 
104 -ASCIZ 
141 
145 
040 
DUMMY2: .BLKB 
FMSG1D0: .BLKB 
- ASCII 


000 CRLF: -ASCIZ 
156 FMSG2: .ASCIZ 


162 FMSG3: .ASCIZ 


145 FMSG4: .ASCIZ 





Be 


16-Feb-85 13:57 Page 6-7 


SEQ 0014 


: 33 UPPER BYTES NOT TO BE PRINTED 
/, Date reed / 

: 33 UPPER BYTES NOT TO BE PRINTED 
4.4 

<CR><LF> 


/Language Area not supported on this processor ./<CR><LF> 


/Current boot ROM version does not support language erea./<CR><LF> 


/Checksum error in EEPROM setup erea./<CR><LF> 


- 


r 
' 
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652 
653 


654 


Seo Yr Se 








Ce 
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“FIELD SERVICE MODE” ERROR MESSAGES 


-SBTTL 
MSGOOO: 


MSGOO1: 


- SBTTL 
-SBTTL 


TEXT: 


TRANSLATED LOADER ERROR MESSAGES 
<CR>!Systemet kan ej ladda Svenska! 


-ASCIZ 


-ASCIZ 


! - JtergOr till U.S. English. !<CR> 


START OF AREA TO BE LOADED INTO E2PROM 
Svenska LANGUAGE TEXT 


-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 


M00O1-TEXT 


MO31-M030 
MO32-M031 








SEQ 0015 


De 
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SEQ 0016 
Svenske LANGUAGE TEXT 
685 003136 002 -BYTE M033-M032 
686 003137 050 -BYTE M034-M033 
687 003140 000 .BYTE MO35-M034 
688 003141 001 .BYTE M036-M035 
689 003142 000 -BYTE ™037-M036 
690 003143 002 -BYTE M040-M037 
691 003144 027 -BYTE ™041-M040 
692 603145 000 -BYTE  M042-M041 
693 003146 017 -BYTE M043-M042 
694 003147 015 -BYTE M044-M043 
695 003150 021 -BYTE  M045-M044 
696 003151 036 -BYTE M046-M045 
697 003152 024 -BYTE M047-M046 
698 003153 023 -BYTE MOSO0-M047 
699 003154 020 -BYTE ™051-M050 
700 003155 026 -BYTE ™MOS2-M051 
701 003156 015 -BYTE ™MO53-M0S2 
702 003157 021 -BYTE ™M054-M053 
703 003160 027 -BYTE MOSS-M054 
704 003161 021 -BYTE ™O0S5S6-M055 
705 003162 060 .BYTE ™MOS7-M056 
706 003163 012 .BYTE M060-M057 
707 003164 000 -BYTE ™M061-M060 
708 003165 013 -BYTE MO62-M061 
709 003166 002 -BYTE M063-M062 
710 003167 013 .BYTE M064-M063 
711 003170 031 -BYTE MO65-M064 
71i2 003171 003 -BYTE MO066-M065 
713 003172 025 .BYTE MO067-M066 
714 003173 060 -BYTE MO70-M067 
715 003174 007 .BYTE M071-M070 
716 003175 003 .BYTE M0O72-MO71 
717 003176 066 .BYTE §M073-M072 
718 003177 001 -BYTE ™074-M073 
719 003200 035 -BYTE MEND1-MO74 
720 003201 123 166 145 MOO01: -ASCIZ !Svenske! 
003204 156 163 153 
003207 141 000 
721 003211 077 000 MOO2: -ASCIZ !?! 
722 003213 110 112 133 M003: -ASCIZ !HJ(LP! 
003216 114 120 000 
723 003221 114 101 104 M004: -ASCIZ !LADDA! 
003224 104 101 000 
724 003227 126 111 123 MOOS: -ASCIZ !VISA! 
003232 101 000 
725 003234 177 000 M006: -ASCIZ <177> ;Setup command 
726 003236 177 000 MOO7: -ASCIZ <177> ;Map command 
727 003240 177 000 M010: -ASCIZ <177> ;Test command 
728 003242 MO11: 
729 003242 M012 
730 003242 M013 
731 003242 M014 
732 003242 M015 
733 003242 M016 
734 003242 MO17: 
735 003242 105 156 150 MmO20: -ASCII !Enhet!<TAB>!Enhetsnummer !<TAB> !Beskrivning!<CR> 


003245 145 164 011 








a 


_ 


Ee 
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Svenske LANGUAGE TEXT 


SEQ 0017 


736 003301 126 151 163 M021: -ASCII !Visa startprogrammen!<CR> 


737 003326 123 164 141 M022: -ASCII !Stertear systemet frOn! 


738 003353 015 113 157 M023: -ASCII <CR>!Kommando Beskrivning!<CR><CR>!LADDA!<TAB>! Liser in och ! 


739 003426 163 164 141 -ASCII !starter systemet frOn enheten!<CR>!VISA!<TAB>! ! 


003437 i71 163 164 
003442 145 155 145 
003445 164 040 146 


740 003472 015 111 156 M024: -ASCII <CR>!Inlisning pOgOr ! 


741 003513 057 M025: -ASCII ‘/' 





- - ee 


f 
| 
| 
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Svenske LANGUAGE TEXT 


742 003514 124 162 171 M026: 


003517 143 153 040 


743 003534 106 145 154 M027: 
744 003540 040 141 144 M030: 


74S 003550 124 145 163 M031: 


746 003562 060 oSS M032: 
747 003564 015 123 153 M033: 


748 003634 M034: 
749 003634 011 MO35: 
750 003635 MO36: 
751 003635 015 040 M037: 


752 003637 123 164 141 M040: 


753 003666 M041: 

754 003666 015 115 145 M042: 
003671 144 144 145 
003674 154 141 156 
003677 144 145 040 


755 003705 105 156 150 M043: 


756 003722 115 145 144 M044; 


8 
w 
N 
w 
w 
) 
& 
~ 
> 
- 
~ 
$ 





‘ 
-_—-- 


- ASCII 


-ASCII 
-ASCII 


- ASCII 


-ASCII 
- ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


Fe 
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!'Tryck pO <ret>: ! 


Fel ! 


! adress ! 


'Test p0gOr! 


/0-/ 


SEQ 0018 


<CR>!Skriv ett kommando och tryck pO <ret>: ! 


TAB 
CR, SPACE 


!Sterter laddning av ROM! 


<CR>!Meddelande 06!<CR> 


!Enhet ej klar! 


'Media ej laddbart! 


ae ny 


| COEEGA EEPROM SWED LANG LOR 





Svenske LANGUAGE TEXT 


003736 
003741 
757 003743 
003746 
003751 
003754 
003757 


758 004001 


759 004025 


760 004050 


761 004070 


762 004116 


763 004133 


764 004154 


- 
N 
w 


‘ 
-_—<—-- 


M046: 


M047: 


MOSO: 


MOS1: 


MOS2: 


MOS3: 


MOS4: 
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- ASCII 


-ASCII 


-ASCII 


-ASCII 


- ASCII 


-ASCII 


-ASCII 


-ASCII 


Ge 
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!Inget media i laddningsenheten! 


!Inget band i enheten! 


!Styrenhet finns ej,! 


!Enheten finns ej! 


!O0giltigt enhetsnummer ! 


!O0giltig enhet! 


‘Fel i styrenheten! 


!Fel pO laddningsenheten! 


SEQ 0019 
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Svenska LANGUAGE TEXT 


765 004203 015 015 114 MOSS: 


766 004224 015 123 145 MOS6: 


767 004302 015 015 


768 004304 033 133 062 M057: 


769 004310 033 133 065 


770 004316 MO60: 
771 004316 115 145 144 M061: 


772 004331 015 015 M062: 
773 004333 015 015 113 M063: 


774 004346 015 106 145 M064: 


004354 151 144 040 
004357 105 105 120 
004362 122 117 115 


775 004377 010 040 010 M065: 
776 004402 015 106 145 M066: 





777 004427 015 015 124 M067: 


-ASCII 


- ASCII 


- ASCII 
- ASCII 


-ASCIT 


- ASCII 


-BYTE 
-ASCII 


- ASCII 


-BYTE 
-ASCII 


-ASCII 


He 
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<CR><CR>!Laddning pOgOr ! 


<CR>!Se avsnitt fels)kning i Handledning f)r hjilp! 


<CR><CR> 

<ESC>/[2U/ ;Erase screen 

<ESC>/(5;0H/ ;Set cursor to line 5 and col 1 
!'Meddelande ! 


CR,CR 
<CR><CR>/KDJ11-B >/ 


<CR>!Fel vid EEPROM laddning!<CR> 


BACKSP , SPACE ,BACKSP 
<CR>!Felaktigt kommando. !<CR> 


<CR><CR>!Tillgingliga kommandon: Hjilp, Ladde och Vise.! 








SEQ 0020 


I2 
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Svenske LANGUAGE TEXT 


SEQ 0021 


778 004507 101 144 162 M070: -ASCII !Adress ! 


779 004516 040 075 040 MO71: -ASCII /=/ 
780 004521 123 153 162 M072: -ASCII !Skriv enhet och enhetsnummer tryck direfter pO <ret>: ! 


781 004607 011 MO73: -BYTE TAB 
782 004610 015 123 164 M074: -ASCII <CR>!Starter automatisk laddning!<CR> 


004635 141 144 144 
004640 156 151 156 
004643 147 015 
783 004645 MEND1 : 
784 -SBTTL NULL DICTIONARY BLOCK, CHECKSUM AND LANGUAGE HEADER 
78S 004645 wi: 
786 004645 001 ENGWRD: .BYTE ENDBLK-ENGWRD 
787 004646 ENDBLK ; 
788 
789 
790 004646 WEND : 


~N 
wo 
r~4 
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SEQ 0022 

NULL DICTIONARY BLOCK, CHECKSUM AND LANGUAGE HEADER 

La. | 004646 000 CKSUM: .byte 0 ;checksum 

794 

a. 004647 MEND : sEND OF NULL TEXT 

797 004647 ME: 

798 004647 WE: 

799 

ro sFOREIGN LANGUAGE HEADER 

802 000002 Bi = WE -WBE377 sDICTIONARY BYTE COUNT 7:0 

803 000000 B2 = WE -WBE17400/256. sDICTIONARY BYTE COUNT 10:8 

804 000143 B3 = MEND-text&377 ;TEXT BYTE COUNT 7:0 

4 000143 B4 B MEND-text&017400/256. !140 sTEXT BYTE COUNT *°2:8 € ID*011 

807 004647 002 urvTe 63% 

808 004650 000 -BYTE B62 

809 004651 143 -BYTE 863 

810 004652 143 -BYTE B64 

ak 004653 070 -BYTE -<B1+B2+B3+B4>€377 ;THIS BYTE IS HEADER CHECKSUM 

813 004654 FLEND: 

814 004654 BUFF : ; TEMPORARY SAVE AREA FOR OLD AREA 

615 001000 .END START 
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Symbol table 

BACKSP= 000010 
BCSR = 177520 
BOR * 177524 
BIT6 = 000100 
BIT7 = 000200 
BUFF 004654 
B1 = 000002 
B2 = 000000 
B83 = 000143 
B4 = 000143 
CKSUM 004646 
cR = 000015 
CRLF 002560 
DELAY = 025370 
DUMMY1 002526 
DUMMY2 002551 
ENDBLK 004646 
ENDE2R= 166000 
ENGWRD 004645 
ESC = 000033 
EXIT 001566 
EXIT1 001642 
E2LLB = 165006 
E2PAR = 165316 
E2PROM= 165000 
E2WRIT 001666 
- ABS. 004654 


000000 
Errors detected: 


FLEND 
FMSG1 
FMSG1A 
FMSG1B 
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SEQ 0023 =! 

004654 M010 =: 003240 M042 ©—-: 003666 M074 004610 
002430 M011 003242 M043. s-: 003705 NARGS = 000001 
002465 M012 003242 M044 =: 003722 NTYPE = 000027 
002500 M013: 003242 M045 003743 OLDSIZ 002424 
002531 M014 003242 M046 004001 PCR = 177522 
002554 MOiS 003242 M047 =—s-: 004025 PCRLB = 177522 
002563 M016 003242 MOSO 004050 QUIT 002004 
002644 M017 003242 MOS1 004070 QUIT1 002006 
001262 M021 003301 M053 «-:004133 RETRY = 000002 
000012 M022 003326 M054 004154 RMVTST= 173002 
000140 M023 003353 MOSS 004203 ROMADR 002342 
000004 M024 =: 003472 M056 004224 ROMSZ = 001550 
004647 M025 003513 M057 004304 SPACE = 000040 
004647 M026 003514 M060 004316 START 001000 
004645 M027 003534 M061 004316 TAB = 000011 
002134 M030 003540 M062 - 004331 TEXT 003104 
003006 M031 003550 M063 004333 UFDHDR= 000040 
003045 M032 003562 M064 004346 UFDSIZ 002426 
003201 M033: 003564 M065 004377 004645 
003211 M034 =: 003634 M066 004402 WE 004647 
003213 M035 003634 M067 004427 WEND 004646 
003221 M036 003635 M070 004507 WERR 002422 
003227 M037 003635 MO71 004516 WRBYTE 002162 
003234 M040 —- 003637 M072 004521 WRLANG 001462 
003236 M041 003666 M073 004607 


000 «= CRW, I, GBL, ABS, OVR) 
001 8 (CRW,I,LCL,REL,CON) 


0 


**¢ Assembler stetistics 


Work file 


reeds: 


ie) 


Work file writes: 0 
8553 Words ( 34 Pages) 


Size of work file: 
Size of core pool: 
Operating system: 


19402 Words 
RSX-11M/PLUS 


Elepsed time: 00:00:15.04 


OEEGAO.BIC,COEEGA 


0/CR/-SP=COEEGAO 


( 74 Pages) 
(Under VAX/VMS) 


COEEGAO 


SYMBOL CROSS REFERENCE 








Le 
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SYMBOL VALUE 
BACKSP = 000010 
BCSR * 177520 
BOR * 177524 
BIT6 = 000100 
B1T7 * 000200 
BUFF 004654 
81 = 000002 
62 * 000000 
63 =* 000142 
B4 = 000143 
CKSUM 004646 
CR = 000015 
CRLF 002560 
DELAY =* 025370 
DUMMY 1 002526 
DUMMY2 002551 
ENDBLK 

ENDE2R = 166000 
ENGWRD 004645 
ESC *# 000033 
EXIT 001566 
EXIT1 001642 
E2LL68 = 165006 
E2PAR = 165316 
E2PROM = 165000 
E2wRIT 001666 
FLEND 004654 
FMSG1 002430 
FMSG1A 002465 
FMSG1B 002500 
FMSG1C 002531 
FMSG1D 002554 
FMSG2 002563 
FMSG3 002644 
FMSG4 002737 
LANG 001262 
LF =# 000012 
L = 000140 
MAXERR = 000004 
ME 004647 
MEND 004647 
MEND1 004645 
MOVROM 002134 
MSGOO0O 003006 
MSGOO1 003045 
M001 003201 
M002 003211 
M003 003213 


SEQ 0024 
CREF vO0o2 
REFERENCES 
#5-260 6-775 6-775 
05-239 6-315 *6-316 *6-473 
5-254 
#5-258 6-510 6-531 
5-257 6-452 6-458 6-461 
6-370 6-409 6-413 6-441 6-518 06-814 
6-802 6-807 6-811 
6-803 6-808 6-811 
96-804 6-809 6-811 
6-805 6-810 6-811 
6-428 6-497 *6-500 06-792 
@5-255 6-641 6-648 6-649 6-650 6-651 6-653 6-654 6-735 
6-736 6-738 6-738 6-738 6-739 6-740 6-747 6-751 6-754 
6-754 6-765 6-765 6-766 6-767 6-767 6-772 6-772 6-773 
6-773 6-774 6-774 6-776 6-776 6-777 6-777 6-782 6-782 
6-471 6-471 6-648 
05-247 6-562 
6-575 6-575 06-642 
6-579 6-579 96-645 
6-786 06-787 
@5-245 6-349 6-503 6-523 6-596 
06-786 6-786 
#5-262 6-768 6-769 
06-455 6-532 6-534 
6-460 6-465 06-471 6-514 6-529 
05-244 6-456 
05-243 6-466 
@5-242 5-243 5-244 5-245 6-324 6-333 6-335 6-505 6-525 
6-598 6-618 6-623 
6-443 6-449 06-477 
5-264 06-813 
6-573 6-573 06-638 
*6-570 06-639 
6-572 6-572 06-640 
6-576 6-576 06-643 
6-580 6-580 06-646 
6-321 6-321 06-649 
6-344 6-344 #6-650 
6-337 6-337 #6-651 
6-368 06-380 
05-256 6-641 6-648 6-649 6-650 6-651 
05-248 6-380 
5-252 6-481 
06-797 
06-795 6-804 6-805 
6-487 6-719 06-783 
6-371 6-410 6-417 06-547 
6-512 6-512 06-653 
6-533 6-533 06-654 
6-484 6-659 6-660 06-720 
6-660 6-661 06-721 
6-661 6-662 06-722 


COEEGAO 


SYMBOL CROSS REFERENCE 
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SYMBOL VALUE 

M004 003221 
moos 003227 
M006 003234 
M007 3236 
M010 003240 
M011 003242 
mol2 003242 
M013 003242 
M014 003242 
mo1S 003242 
M016 003242 
M017 003242 
M020 003242 
mo21 003301 
mo22 003326 
mo23 003353 
mo24 003472 
mMo25 003513 
M026 003514 
M027 003534 
M030 003540 
MO31 003550 
mMO32 003562 
MO33 003564 
M034 003634 
MO3S 003634 
M036 003635 
M037 003635 
M040 003637 
M041 003666 
M042 003666 
M043 003705 
M044 003722 
MO45 003743 
M046 004001 
M047 004025 
MOSO 004050 
MOS1 004070 
mMos2 004116 
MOSS 004133 
M054 004154 
MOSS 004203 
MOS6 004224 
MOS7 004304 
M060 004316 
M061 004316 
M062 004331 
M063 004333 
M064 004346 
MOo6S 004377 
M066 004402 
M067 004427 


REFERENCES 


6-662 
6-663 


POOOOOOOE 


SEE8EE38 


POARAAGDAGVS 
ao 


~ 
~ 





CREF vo2 


06-723 


06-731 


06-735 


06-738 
06-740 
06-741 


06-743 
06-744 
06-745 
06-746 


06-777 


a 


COEEGAO 


SYMBOL CROSS REFERENCE 


CREATED BY MACRO ON 16-FEB-85 AT 13:57 


SYMBOL VALUE 

M070 004507 
MO71 004516 
M072 004521 
M073 004607 
M074 004610 
NARGS = 000001 
NTYPE = 000027 
OLOSIZ 002424 
PCR * 177522 
PCRLB = 177522 
QUIT 002004 
QUIT1 002006 
REAROM 002314 
RETRY = 2 
RMVTST = 173002 
ROMADR 002342 
ROMSZ = 001550 
SPACE == 000040 
START 001000 
TAB * 000011 
TEXT 003104 
UFOHDR = 000040 
UFOSIZ 002426 
WB 004645 
WE 004647 
WENO 004646 
WERE 002422 
WRBY IE 002162 
WRL ANG 001462 


96-778 
06-779 
96-780 
06-781 
06-782 
96-337 

6-533 
96-576 
06-337 

6-533 
06-576 
*6-382 


*6-340 
6-567 
6-488 


6-388 


6-517 
6-447 
6-775 


6-735 
6-446 
6-399 
*6-412 
6-803 
6-803 


96-630 
6-477 
6-378 


6-337 
06-572 
6-576 
6-337 
06-572 


- 6-576 


6-408 
*6-474 
*6-627 

6-491 


6-390 


6-548 


6-738 
96-659 


6-416 


6-520 
6-381 


06-424 


*6-419 
6-599 


06-594 


6-781 
6-805 


6-439 


6-580 6-580 
6-471 06-512 
06-575 6-575 
6-580 

6-513 6-528 


6-528 06-633 


B3 


COEEGAO CREATED BY MACRO ON 16-FEB-85 AT 13:57 PAGE 4 


MACRO CROSS REFERENCE CREF vo2 
MACRO NAME REFERENCES 

-FRCTY #5-299 6-471 6-512 6-533 

-ITOA @5-278 6-572 6-575 6-579 


. TYPHS 05-267 6-321 6-337 6-344 6-373 6-576 6-580 





TTT, ES ES 





SEQ 0027 


